home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64Arcade / GHOST-CASTLE.SDA / GHOST CASTLE (.txt) < prev   
Encoding:
Commodore BASIC  |  2019-04-13  |  7.1 KB  |  167 lines
  1. 0 REM  FROM NELCUG DISK # C16 7/86                  AND JGPD # 61
  2. 1 POKE53280,0:POKE53281,0:PRINT"[147][142]"
  3. 2 IFPEEK(49759)=96THEN6
  4. 3 IFA=0THENA=1:LOAD"1GC.ML",8,1
  5. 4 IFA=1THENA=2:LOAD"2GC.ML",8,1
  6. 6 PRINT"[151][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]     [155] [162][162] [146][175]  [162]  [198][198][162] [162]"
  7. 8 PRINT"     [152] [146][162][190] [146][183]  [146][162] [196][196]  "
  8. 10 PRINT"            [155] [162] [198]  [198][198][162] [162]  [198][146] "
  9. 12 PRINT"            [152] [146][162][162]  [146][183] [196][196]   [146][162][162]  [146][162][162]
  10. 14 [153]"POKETANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN
  11. 16 PRINT"         NEED INSTRUCTIONS Y/N
  12. 18 [161]G$:[139]G$[179][177]"Y"[175]G$[179][177]"N"[167]18
  13. 20 [139]G$[178]"Y"[167]605
  14. 25 [134]M,U,D$(3,1),W$(3),W(3),TR(10,1),S(10,1),S$(1):[129]A[178]0[164]3:[135]D$(A,0):[130]
  15. 30 [150][165]R(X)[178][181]([187](1)[172]X):SD[178]2040:DR[178]685:S[178]53248:SO[178]54272:[151]SO[170]24,15
  16. 35 [151]S[170]39,9:[151]S[170]16,0:[131]"","CMD
  17. 40 POKESD,245:DATA"","
  18. 45 [151]S,171:W$(0)[178]D$(0,0)[170]"POKE      ":W$(1)[178]D$(1,0)[170]"POKE CMD CMD CMD CMD ":A[178][187]([171]TI)
  19. 50 [151]S[170]1,158:W$(2)[178]D$(2,0)[170]"POKE      ":W$(3)[178]D$(3,0)[170]"POKE CMD CMD CMD CMD "
  20. 55 [151]S[170]27,1:D$(0,1)[178]D$(0,0)[170]"      ":D$(1,1)[178]D$(1,0)[170]" CMD CMD CMD CMD "
  21. 60 [151]S[170]28,1:D$(2,1)[178]D$(2,0)[170]"      ":D$(3,1)[178]D$(3,0)[170]" CMD CMD CMD CMD "
  22. 65 D$(1,0)[178]D$(1,0)[170]"VERIFY(null)CMD(null)CMD(null)CMD(null)CMD(null)":D$(3,0)[178]D$(3,0)[170]"VERIFY(null)CMD(null)CMD(null)CMD(null)CMD(null)
  23. 70 D$(2,0)=D$(2,0)+"[149][215][192][192][192][192][192]":D$(0,0)=D$(0,0)+"[149][192][192][192][192][192][215]":POKES+38,7
  24. 75 PRINT"[147][142]GHOSTS ARE A COMING...":GOSUB355:GOTO455
  25. 80 PRINT"[147][151]                                  ";:GOSUB525:U=684
  26. 85 PRINT"":GOSUB525:PRINT"                                 
  27. 90 [151]2023,160:[151]56295,11:[129]A[178]679[164]695:[151]A,0:[130]:[151]DR,2:[151]687,1
  28. 95 SL[178]49176:SR[178]49196:XR[178]781:M[178]49750:P[178]49496:[151]S[170]21,1
  29. 100 [141]245:[141]220:[151]S[170]30,0:[151]S[170]31,0:[141]425:[141]430:[137]420
  30. 105 [158]M:[145][194](U)[170]1[137]105,110,120,130,140,150,185
  31. 110 Y[178]Y[171]1:[129]A[178]0[164]7:[151]S[170]1,[194](S[170]1)[171]1:[158]P:[130]:[151]S[170]1,255:[141]245
  32. 115 [129]A[178]0[164]35:[151]S[170]1,[194](S[170]1)[171]1:[158]P:[130]:[141]220:[137]420
  33. 120 X[178]X[170]1:[129]A[178]0[164]7:[151]XR,0:[158]SR:[158]P:[130]:[151]S,0:[151]S[170]16,0:[141]245
  34. 125 [129]A[178]0[164]35:[151]XR,0:[158]SR:[158]P:[130]:[141]220:[137]420
  35. 130 Y[178]Y[170]1:[129]A[178]0[164]24:[151]S[170]1,[194](S[170]1)[170]1:[158]P:[130]:[141]245:[151]S[170]1,89
  36. 135 [129]A[178]0[164]12:[151]S[170]1,[194](S[170]1)[170]1:[158]P:[130]:[141]220:[137]420
  37. 140 X[178]X[171]1:[129]A[178]0[164]7:[151]XR,0:[158]SL:[158]P:[130]:[151]S[170]16,1:[151]S,82:[141]245
  38. 145 [129]A[178]0[164]33:[151]XR,0:[158]SL:[158]P:[130]:[141]220:[137]420
  39. 150 [145]SS[170]1[137]105,155,170
  40. 155 Z[178]Z[170]1:[151]SD,250:[151]DR,1:[151]687,1:[151]S,127:[151]S[170]1,119:[129]A[178]1[164]5
  41. 160 [151]S,[194](S)[171]16:[151]S[170]1,[194](S[170]1)[171]8:[129]T[178]0[164]9:[130]:[130]:[151]S,0:[151]S[170]1,0
  42. 165 [141]295:SS[178]0:[151]S,238:[151]S[170]1,174:[137]100
  43. 170 [151]SD,245:[151]DR,2:[151]687,1:Z[178]Z[171]1:[151]S,238:[151]S[170]1,174:[129]A[178]1[164]5
  44. 175 [151]S[170]1,[194](S[170]1)[170]8:B[178][194](S)[170]16:[139]B[178]270[167]B[178]15:[151]S[170]16,[194](S[170]16)[176]1
  45. 180 [151]S,B:[130]:[141]295:SS[178]0:[151]S,127:[151]S[170]1,119:[151]S[170]16,0:[137]100
  46. 185 [145]TR[170]1[137]105,190,205
  47. 190 TC[178]TC[170]1:[141]425:[151]S[170]30,0:TR(Z,0)[178]10:TR(Z,1)[178]10:[141]445:[141]505:[151]SO[170]5,8
  48. 195 [151]SO[170]6,255:[151]SO[170]4,23:C[178]3.5[170]TC:[141]510:[151]S[170]21,1:[151]SO[170]6,15
  49. 200 [151]S[170]30,0:[137]105
  50. 205 [145][171](TC[178]0)[137]475:TC[178]TC[171]1:[151]S[170]21,1:[151]689,0:A[178][165]R(10):B[178][165]R(10)
  51. 210 C[178][165]R(11):[139]TR(C,0)[179][177]10[167]210
  52. 215 TR(C,0)[178]A:TR(C,1)[178]B:[151]S[170]30,0:[141]425:[137]105
  53. 220 [151]S[170]31,0:C[178][165]R(3):[129]A[178]0[164]C
  54. 225 B[178][165]R(4):[145][194](680[170]B)[170]1[137]225
  55. 230 [151]680[170]B,0:CL[178]CL[170]1:[139]CL[178]3[167]A[178]C
  56. 235 [130]:[129]A[178]0[164]3:[139]W(A)[178]1[167]W(A)[178]0:[130]:[142]
  57. 240 [153]D$(A,[194](680[170]A)):[130]:[142]
  58. 245 [151]S[170]21,1:CL[178]0:[129]A[178]0[164]3:[151]680[170]A,1:[130]:[139]X[178]0[167][151]683,0:W(3)[178]1:CL[178]CL[170]1
  59. 250 [139]X[178]9[167][151]681,0:W(1)[178]1:CL[178]CL[170]1
  60. 255 [139]Y[178]0[167][151]680,0:W(0)[178]1:CL[178]CL[170]1
  61. 260 [139]Y[178]9[167][151]682,0:W(2)[178]1:CL[178]CL[170]1
  62. 265 [129]A[178]0[164]3:[139]W(A)[178]1[167][153]W$(A):[137]275
  63. 270 [153]D$(A,1)
  64. 275 [130]:[145][171](TC[178]3)[141]405:[139]TR[178]1[167]TR[178]0
  65. 280 [139]TR(Z,0)[178]X[175]TR(Z,1)[178]Y[167]330
  66. 285 [139]TR[178]2[167]TR[178]0:[151]689,0
  67. 290 [139]SS[178]0[167]305
  68. 295 [153]"";:[129]A[178]1[164]19:[153]"                                      ";
  69. 300 [130]:[153]"":SS[178]0
  70. 305 [139]Z[178]0[167]320
  71. 310 [139]S(Z,0)[178]X[175]S(Z,1)[178]Y[167][153]S$(1)ST$:SS[178]2:[137]340
  72. 315 [139]Z[178]10[167]340
  73. 320 [139]S(Z[170]1,0)[178]X[175]S(Z[170]1,1)[178]Y[167][153]S$(0)ST$:SS[178]1
  74. 325 [137]340
  75. 330 [151]S[170]40,5:[151]SD[170]1,253:[151]S[170]2,173:[151]S[170]3,150:[151]S[170]21,3:TR[178]1:[151]689,0
  76. 335 [137]285
  77. 340 [139]TR[178]1[176][165]R(100)[177]24[176](X[178]0[175]Y[178]0[175]Z[178]0)[167][142]
  78. 345 [151]S[170]2,173:[151]S[170]3,150:[151]S[170]40,1:[151]SD[170]1,251:[151]S[170]21,3:[151]689,1:TR[178]2
  79. 350 [142]
  80. 355 ST$[178]"OPEN":[129]A[178]1[164]6:SB$[178]"":[129]B[178]1[164]A:ST$[178]ST$[170]"  ":SB$[178]SB$[170]"CMDCMD":[130]
  81. 360 ST$[178]ST$[170]SB$:[130]:S$(0)[178]"":S$(1)[178]"
  82. 365 S$(1)=S$(1)+"":ST$=ST$+"":GOSUB400:FORA=1TO3:B=FNR(10)
  83. 370 C=FNR(10):D=FNR(11):IFTR(D,0)=BANDTR(D,1)=CTHENA=A-1:NEXT
  84. 375 TR(D,0)=B:TR(D,1)=C:NEXT:FORA=1TO9:S(A,0)=FNR(10):S(A,1)=FNR(10)
  85. 380 IFS(A,0)=TR(A,0)ANDS(A,1)=TR(A,1)THENA=A-1:NEXT
  86. 385 IFS(A,0)=TR(A+1,0)ANDS(A,1)=TR(A+1,1)THENA=A-1:NEXT
  87. 390 IFS(A,0)=S(A-1,0)ANDS(A,1)=S(A-1,1)THENA=A-1:NEXT
  88. 395 NEXT:RETURN
  89. 400 FORA=0TO10:TR(A,0)=10:TR(A,1)=10:NEXT:RETURN
  90. 405 IFX<>0ORY<>0ORZ<>0THENRETURN
  91. 410 POKES+21,0:PRINT"[159]"SPC(12)"CONGRATULATIONS!
  92. 415 [153]"FORYOU HAVE FOUND ALL THE TREASURES!":[137]490
  93. 420 [153]"PRINTROOM #"[196](Y)[202]([196](X),2,1)"  LEVEL"Z"CMD ":[137]105
  94. 425 [153]"CLRTREASURES:"TC:[142]
  95. 430 US$[178]"NONE":[139]Z[179]10[167]US$[178]"#"[170][196](S(Z[170]1,1))[170][202]([196](S(Z[170]1,0)),2,1)
  96. 435 DS$[178]"NONE":[139]Z[177]0[167]DS$[178]"#"[170][196](S(Z,1))[170][202]([196](S(Z,0)),2,1)
  97. 440 [153]"DEFSTAIRS: UP-"US$"  DOWN-"DS$
  98. 445 TR$[178]"NONE":[139]TR(Z,0)[179][177]10[167]TR$[178]"#"[170][196](TR(Z,1))[170][202]([196](TR(Z,0)),2,1)
  99. 450 [153]"TREASURE LOCATION: "TR$:[142]
  100. 455 [151]S[170]32,0:[151]S[170]33,0:[153]"LOADCLR"[166]6)"THE GHOST CASTLE  [JS PORT 2]"
  101. 460 [153]"PRINT    PRESS THE FIREPRINT BUTTON WHEN READY"[199](142)[199](8)
  102. 465 [139]([194](56320)[175]16)[178]16[167]465
  103. 470 [137]80
  104. 475 [141]505:[151]SO[170]5,8:[151]SO[170]6,255:[151]SO[170]4,23:[151]SO[170]15,9:[129]A[178]1[164]25
  105. 480 [151]S[170]39,[165]R(16):[151]S[170]38,[165]R(16):[141]520:[130]:[151]SO[170]6,15:[151]S[170]21,0
  106. 485 [153]""[166]11)"OPENTHE GHOST GOT YOU!
  107. 490 PRINTSPC(9)"[158]PUSH UP TO PLAY AGAIN":PRINTSPC(11)"PUSH DOWN TO STOP
  108. 495 A[178][194](56320):[139]A[178]126[167][138]25
  109. 500 [145](A[178]125)[170]1[137]495:[158]2048
  110. 505 [129]A[178]SO[164]SO[170]23:[151]A,0:[130]:[142]
  111. 510 [151]SO[170]15,C:[129]B[178]1[164]160[169]2:[129]T[178]0[164]29:[130]:[151]SO[170]1,B:[151]S[170]40,[165]R(16)
  112. 515 [130]:[142]
  113. 520 [151]SO[170]1,[165]R(256):[151]SO,[165]R(200):[142]
  114. 525 [129]A[178]1[164]7:[153]" "[166]38)" ";:[130]:[142]
  115. 530 [143]    JGPD # 61
  116. 540 :                                       :
  117. 600 [143]  FROM NELCUG DISK # C16  7/86
  118. 605 [151]53280,15:[151]53281,15:[153]"LOAD";
  119. 610 J$[178]"TANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTANTAN":[153]J$J$;
  120. 615 [153]"FOR   CHR$LEFT$(null)(null)(null)CLOSELENATN(null)(null)(null)VALCLOSERIGHT$NSTRUCTIONS    (null)AGE 1  ";:[153]J$J$
  121. 620 [153]"ONPOKE  (null)OUR TASK IN (null)LEFT$VAL CHR$LEFT$(null)(null)(null)CLOSELENATN(null)(null)(null)VAL IS    CLOSE ";
  122. 625 [153]"FAIRLY SIMPLE: AVOID THE GHOSTS WHILE   ";
  123. 630 [153]"SEARCHING THE CASTLE FOR THREE TREASURES";
  124. 635 [153]"IT SOUNDS EASY,BUT IT ISN'T.ASCIRST OF ALL";
  125. 640 [153]",THE CASTLE HAS 1100 ROOMS SPREAD OVER  ";
  126. 645 [153]"11 LEVELS (100 PER LEVEL).(null)ECOND,THE    ";
  127. 650 [153]"GHOSTS OPEN AND CLOSE THE DOORS LEADING ";
  128. 655 [153]"FROM EACH ROOM AT WILL,AND YOU HAVE NO  ";
  129. 660 [153]"KEY WITH WHICH TO UNLOCK THEM WHEN THEY ";
  130. 665 [153]"ARE CLOSED.RIGHT$F A GHOST CATCHES YOU,IT    ";
  131. 670 [153]"WILL STEAL A TREASURE AND PLACE IT SOME-";
  132. 675 [153]"WHERE ELSE IN THE CASTLE.(null)HOULD A GHOST ";
  133. 680 [153]"CATCH YOU WITHOUT A TREASURE,THE GAME   ";
  134. 685 [153]"WILL END.                               ";
  135. 690 [153]" STR$ESPITE OF ALL THIS,YOU HAVE A FEW     ";
  136. 695 [153]"THINGS GOING FOR YOU.ASCOR ONE,YOU DON'T  ";
  137. 700 [153]"HAVE TO SEARCH ALL THE ROOMS OF EACH    ";
  138. 705 [153]"LEVEL FOR STAIRS AND TREASURES.(null)HE      ";
  139. 710 [153]"NUMBER OF THE ROOM YOU ARE CURRENTLY IN ";
  140. 715 [153]"IS DISPLAYED,AS WELL AS THE ROOM NUMB-  ";
  141. 720 [153]"ERS OF ALL STAIRCASES AND TREASURES ON  ";
  142. 725 [153]"        (null)RESS <(null)(null)ATNLENVAL>CLOSETO CONTINUE      "
  143. 730 [161]G$:[139]G$[179][177]" "[167] 730
  144. 735 [153]"LOADPOKETHAT LEVEL.RIGHT$F THE TREASURE LOCATION     ";
  145. 740 [153]"READS (null)(null)(null)VAL,THERE IS NO TREASURE ON THAT ";
  146. 745 [153]"LEVEL.(null)TAIRCASE ROOM NUMBERS WORK IN THE";
  147. 750 [153]"SAME FASHION.(null)NCE YOU HAVE FOUND ALL    ";
  148. 755 [153]"THREE TREASURES,RETURN TO THE ROOM YOU  ";
  149. 760 [153]"STARTED IN (ROOM 00 ON LEVEL 0).        ";
  150. 765 [153]" (null)OVEMENT IS AS WOULD BE EXPECTED:MOVE  ";
  151. 770 [153]"THE JOYSTICK (PORT TWO) IN ONE OF THE   ";
  152. 775 [153]"FOUR GENERAL DIRECTIONS AND YOUR CHARAC-";
  153. 780 [153]"TER WILL MOVE.(null)OU SIMPLY GUIDE IT AWAY  ";
  154. 785 [153]"FROM THE GHOSTS AND THROUGH OPEN DOORS. ";
  155. 790 [153]"(null)O GO UP OR DOWN A LEVEL JUST ENTER A   ";
  156. 795 [153]"ROOM WITH A STAIRCASE GOING TO THE LEVEL";
  157. 800 [153]"YOU DESIRE.(null)OUCH THE STAIRCASE AND      ";
  158. 805 [153]"(null)LEFT$(null)(null)(null)LEFT$!!! YOU'RE THERE.(null)O GET A TREASURE";
  159. 810 [153]"ENTER A ROOM AND TOUCH IT.              ";
  160. 815 [153]" (null)HEN YOU PLAY THE GAME YOU WILL FIND IT";
  161. 820 [153]"IS QUITE CHALLENGING AND WILL TAKE ABOUT";
  162. 825 [153]"A HALF AN HOUR TO COMPLETE."
  163. 830 [153]"    CHR$(null)(null)STR$ CHR$LEFT$(null)(null)(null) LEFT$(null)(null)(null)RIGHT$(null)CHR$CLOSE!CLOSE!
  164. 835 PRINT"         [208]RESS <[211][208][193][195][197]> TO [208]LAY          [146]";
  165. 840 GETK$:IFK$<>" "THEN 840
  166. 850 GOTO25
  167.